home *** CD-ROM | disk | FTP | other *** search
/ Whiteline: Alpha / Whiteline Alpha.iso / tools / cpx_acc / cpxbasic / beispiel / ltest.bas < prev    next >
Encoding:
BASIC Source File  |  1994-09-22  |  219 b   |  11 lines
  1. 10   REM Geraden malen testen
  2. 20   USING 0,4:WHILE
  3. 30     INPUT 'x1 ';x1
  4. 40     INPUT 'y1 ';y1
  5. 50     INPUT 'x2 ';x2
  6. 60     INPUT 'y2 ';y2
  7. 70     CLS
  8. 80     PRINT x1 y1 x2 y2
  9. 90     LINE x1,y1,x2,y2
  10. 100  WEND
  11.